home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / C-D / DeveloperStax.cpt / Developer Stack 1.0 / card_8871.txt < prev    next >
Text File  |  1989-02-26  |  1KB  |  44 lines
  1. -- card: 8871 from stack: in.0
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 13187
  5. -- name: ShowScripts
  6.  
  7.  
  8. -- part contents for background part 4
  9. ----- text -----
  10. 4
  11.  
  12. -- part contents for background part 2
  13. ----- text -----
  14. ShowScripts
  15.  
  16. -- part contents for background part 3
  17. ----- text -----
  18. --
  19. --‚Ä¢‚Ä¢‚Ä¢by Steve Drazga 12/87‚Ä¢‚Ä¢‚Ä¢
  20. --
  21. --This will show the 'edit script' box of any button, field or card you click on while the option key is --held down.  If you hold the option and shift keys down, it will show the script of the background.
  22. --This script should be in the stack script.  
  23.  
  24. on mouseup
  25.   if (first word of the name of the target) is "card" ¬¨
  26.   or  (first word of the name of the target) is "bkgnd" then
  27.     if the optionkey is not down then exit mouseup
  28.   end if
  29.   
  30.   if the shiftkey is down then
  31.     edit script of this background
  32.   else
  33.     edit script of target
  34.   end if
  35. end mouseup
  36.  
  37. --
  38. --For this to work on objects that have their own scripts,  you should include the following
  39. --script at the beginning.
  40. --
  41.   if the optionkey is down then
  42.     pass mouseup
  43.   end if
  44.